home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / circle mover (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  871b  |  38 lines
  1. 10 REM     ***********************
  2. 20 REM     *    "CIRCLE MOVER"   *
  3. 30 REM     *   VON LEIF KOBBELT  *
  4. 40 REM     *   7500 KARLSRUHE 1  *
  5. 50 REM     *  GRAF-RHENASTR. 23  *
  6. 60 REM     ***********************
  7. 70 :
  8. 80 :
  9. 100 INPUT"[147]             STARTADRESSE ";S
  10. 110 INPUT" FUR WELCHE BIT-MAP (1-7) ";T
  11. 120 OPEN1,8,0,"CIRCLE.CODE":GET#1,A$,A$
  12. 130 GET#1,A$:A=ASC(A$+CHR$(0))
  13. 140 POKES+B,A:B=B+1
  14. 150 IFST<>64THEN130
  15. 160 CLOSE1
  16. 170 FORA=1TO11
  17. 180 READC1,C2:C1=C1+S:C2=C2+S
  18. 190 C3=INT(C2/256):C4=C2-C3*256
  19. 200 POKEC1,C4:POKEC1+1,C3
  20. 210 NEXT
  21. 220 POKES+435,T*32
  22. 230 PRINT"[147]     ABSPEICHERN ?"
  23. 240 POKE198,0:WAIT198,1:GETA$
  24. 250 IFA$="N"THENPRINT"[147]":END
  25. 260 IFA$<>"J"THEN190
  26. 270 SYS (57812)"CIRCLE"+STR$(S),8,1
  27. 280 S1=INT(S/256):S2=S-S1*256
  28. 290 POKE193,S2:POKE194,S1
  29. 300 S=S+465:S1=INT(S/256):S2=S-S1*256
  30. 310 POKE174,S2:POKE175,S1
  31. 320 SYS 62954
  32. 330 PRINT"[147]":END
  33. 340 :
  34. 350 :
  35. 1000 DATA 31,232,51,232,125,136,153,236
  36. 1010 DATA 214,256,221,46,228,256,295
  37. 1020 DATA 322,306,322,328,335,356,360
  38.